home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / MOON.bas < prev    next >
BASIC Source File  |  2012-02-16  |  7KB  |  240 lines
  1. 0  HOME : HGR : HCOLOR= 3
  2. 10 R = 60:ROW = 80:COL = 90: GOSUB 1050
  3. 12 R = 60:ROW = 80:COL = 90: GOSUB 1060
  4. 14 X = 65:Y = 92: GOSUB 1100
  5. 16 X = 72: GOSUB 1112
  6. 18 X = 78: GOSUB 1136
  7. 20 X = 84: GOSUB 1146
  8. 22 X = 89: GOSUB 1126
  9. 30 R = 25:ROW = 205:COL = 90: GOSUB 1050
  10. 32 R = 25:ROW = 205:COL = 90: GOSUB 1060
  11. 34 X = 195:Y = 92: GOSUB 1154
  12. 36 X = 202: GOSUB 1168
  13. 38 X = 208: GOSUB 1168
  14. 40 X = 214: GOSUB 1180
  15. 50  REM  scale
  16. 52 X = 65:Y = 59: GOSUB 1192
  17. 54 X = 72: GOSUB 1210
  18. 56 X = 78: GOSUB 1112
  19. 58 X = 84: GOSUB 1220
  20. 60 X = 87: GOSUB 1226
  21. 62  HPLOT 62,61 TO 93,61 TO 93,51 TO 62,51 TO 62,61
  22. 64 X = 193:Y = 80: GOSUB 1192
  23. 66 X = 200: GOSUB 1210
  24. 68 X = 206: GOSUB 1112
  25. 70 X = 212: GOSUB 1220
  26. 72 X = 215: GOSUB 1226
  27. 74  HPLOT 190,82 TO 221,82 TO 221,72 TO 190,72 TO 190,82
  28. 80  REM  apples
  29. 86 X% = 68:Y% = 33: GOSUB 1000
  30. 90  REM  weight
  31. 92 X = 60:Y = 10: GOSUB 1266
  32. 94 X = 65: GOSUB 1276
  33. 96 X = 75: GOSUB 1220
  34. 98 X = 78: GOSUB 1240
  35. 100 X = 85: GOSUB 1252
  36. 102  REM   weight   
  37. 104  VTAB (21): PRINT "An object weighs 6 times more on Earth  than on the moon..."
  38. 110 X% = 196:Y% = 54: GOSUB 1000
  39. 112 X = 188:Y = 10: GOSUB 1276
  40. 114 X = 198: GOSUB 1220
  41. 116 X = 201: GOSUB 1240
  42. 118 X = 208: GOSUB 1252
  43. 120  FOR I = 0 TO 3500: NEXT I
  44. 122  VTAB (21): PRINT "...however, the MASS is the same.       Therefore, the INERTIA is the same."
  45. 130 X = 60:Y = 20: GOSUB 1300
  46. 132  HPLOT 67,20
  47. 134 X = 69: GOSUB 1320
  48. 136 X = 79: GOSUB 1340
  49. 138 X = 87: GOSUB 1360
  50. 140 X = 188:Y = 20: GOSUB 1300
  51. 142  HPLOT 195,20
  52. 144 X = 197: GOSUB 1320
  53. 146 X = 207: GOSUB 1340
  54. 148 X = 215: GOSUB 1360
  55. 230  FOR I = 0 TO 3500: NEXT I
  56. 232  CALL 62450: TEXT : HOME 
  57. 234  PRINT : PRINT : PRINT 
  58. 236  PRINT "The greater the MASS of a body, the     greater its INERTIA."
  59. 238  PRINT : PRINT : PRINT 
  60. 240  FOR I = 0 TO 2000: NEXT I
  61. 242  PRINT : PRINT 
  62. 244  PRINT "It is HARDER to move or stop a MORE     MASSIVE object than a LESS MASSIVE      one."
  63. 246  PRINT : PRINT : PRINT : PRINT 
  64. 248  FOR I = 0 TO 2500: NEXT I
  65. 250  PRINT : PRINT "Press any key to see how much you know  about INERTIA!"
  66. 252  GET KY$
  67. 253  CALL 62450
  68. 254  PRINT  CHR$(4);"run qs1"
  69. 900  END 
  70. 914  HCOLOR= 0
  71. 915 X1 = 68
  72. 916 X% = X1:Y% = 33: GOSUB 1000
  73. 921  FOR X1 = 68 TO 199
  74. 922  HCOLOR= 3
  75. 924 X% = X1:Y% = 33: GOSUB 1000
  76. 930  HCOLOR= 0
  77. 932 X% = X1:Y% = 33: GOSUB 1000
  78. 938  NEXT X1 +5
  79. 940  RETURN 
  80. 1000  HPLOT X% +3,Y% TO X% +4,Y%
  81. 1002  HPLOT X% +3,Y% +1 TO X% +5,Y% +1
  82. 1004  HPLOT X% +10,Y% +1 TO X% +11,Y% +1
  83. 1006  HPLOT X% +3,Y% +2 TO X% +6,Y% +2
  84. 1008  HPLOT X% +10,Y% +2 TO X% +11,Y% +2
  85. 1010  HPLOT X% +4,Y% +3 TO X% +7,Y% +3
  86. 1012  HPLOT X% +9,Y% +3 TO X% +10,Y% +3
  87. 1014  HPLOT X% +4,Y% +4 TO X% +10,Y% +4
  88. 1016  HPLOT X% +1,Y% +5 TO X% +16,Y% +5
  89. 1018  HPLOT X%,Y% +6 TO X% +17,Y% +6
  90. 1020  HPLOT X%,Y% +7 TO X% +17,Y% +6
  91. 1022  HPLOT X%,Y% +8 TO X% +17,Y% +8
  92. 1024  HPLOT X%,Y% +9 TO X% +17,Y% +9
  93. 1026  HPLOT X% +1,Y% +10 TO X% +16,Y% +10
  94. 1028  HPLOT X% +1,Y% +11 TO X% +16,Y% +11
  95. 1030  HPLOT X% +1,Y% +12 TO X% +16,Y% +12
  96. 1032  HPLOT X% +2,Y% +13 TO X% +15,Y% +13
  97. 1034  HPLOT X% +2,Y% +14 TO X% +15,Y% +14
  98. 1036  HPLOT X% +3,Y% +15 TO X% +14,Y% +15
  99. 1038  HPLOT X% +4,Y% +16 TO X% +13,Y% +16
  100. 1040  HPLOT X% +5,Y% +17 TO X% +7,Y% +17
  101. 1042  HPLOT X% +10,Y% +17 TO X% +12,Y% +17
  102. 1044  RETURN 
  103. 1048  REM  circles
  104. 1050  FOR A =  -R TO R
  105. 1052 B =  SQR(R *R -A *A)
  106. 1054  HPLOT A +ROW, INT(B) +COL
  107. 1056  HPLOT A +ROW, - INT(B) +COL
  108. 1058  NEXT A: RETURN 
  109. 1060  FOR B =  -R TO R
  110. 1062 A =  SQR(R *R -B *B)
  111. 1064  HPLOT  INT(A) +ROW,B +COL
  112. 1066  HPLOT  - INT(A) +ROW,B +COL
  113. 1068  NEXT B: RETURN 
  114. 1100  REM  E
  115. 1102  HPLOT X,Y TO X,Y -6
  116. 1104  HPLOT X +1,Y TO X +4,Y
  117. 1106  HPLOT X +1,Y -6 TO X +4,Y -6
  118. 1108  HPLOT X +1,Y -3 TO X +4,Y -3
  119. 1110  RETURN 
  120. 1112  REM  a
  121. 1114  HPLOT X,Y -1
  122. 1116  HPLOT X +1,Y TO X +2,Y
  123. 1118  HPLOT X +1,Y -2 TO X +2,Y -2
  124. 1120  HPLOT X +1,Y -4 TO X +2,Y -4
  125. 1122  HPLOT X +3,Y TO X +3,Y -3
  126. 1124  RETURN 
  127. 1126  REM  h
  128. 1128  HPLOT X,Y TO X,Y -6
  129. 1130  HPLOT X +1,Y -4 TO X +2,Y -4
  130. 1132  HPLOT X +3,Y TO X +3,Y -3
  131. 1134  RETURN 
  132. 1136  REM  r
  133. 1138  HPLOT X,Y TO X,Y -4
  134. 1140  HPLOT X +1,Y -3
  135. 1142  HPLOT X +2,Y -4 TO X +3,Y -4
  136. 1144  RETURN 
  137. 1146  REM  t
  138. 1148  HPLOT X,Y -4 TO X +2,Y -4
  139. 1150  HPLOT X +1,Y TO X +1,Y -6
  140. 1152  RETURN 
  141. 1154  REM  M
  142. 1156  HPLOT X,Y TO X,Y -6
  143. 1158  HPLOT X +1,Y -5
  144. 1160  HPLOT X +2,Y -3 TO X +2,Y -5
  145. 1162  HPLOT X +3,Y -5
  146. 1164  HPLOT X +4,Y TO X +4,Y -6
  147. 1166  RETURN 
  148. 1168  REM  o
  149. 1170  HPLOT X,Y -1 TO X,Y -3
  150. 1172  HPLOT X +1,Y TO X +2,Y
  151. 1174  HPLOT X +1,Y -4 TO X +2,Y -4
  152. 1176  HPLOT X +3,Y -1 TO X +3,Y -3
  153. 1178  RETURN 
  154. 1180  REM  n
  155. 1182  HPLOT X,Y TO X,Y -4
  156. 1184  HPLOT X +1,Y -3
  157. 1186  HPLOT X +2,Y -4
  158. 1188  HPLOT X +3,Y TO X +3,Y -3
  159. 1190  RETURN 
  160. 1192  REM  S
  161. 1194  HPLOT X,Y -1
  162. 1196  HPLOT X +1,Y TO X +3,Y
  163. 1198  HPLOT X +4,Y -1 TO X +4,Y -2
  164. 1200  HPLOT X +1,Y -3 TO X +3,Y -3
  165. 1202  HPLOT X,Y -4 TO X,Y -5
  166. 1204  HPLOT X +1,Y -6 TO X +3,Y -6
  167. 1206  HPLOT X +4,Y -5
  168. 1208  RETURN 
  169. 1210  REM  c
  170. 1212  HPLOT X,Y -1 TO X,Y -3
  171. 1214  HPLOT X +1,Y TO X +3,Y
  172. 1216  HPLOT X +1,Y -4 TO X +3,Y -4
  173. 1218  RETURN 
  174. 1220  REM  l
  175. 1222  HPLOT X,Y TO X,Y -6
  176. 1224  RETURN 
  177. 1226  REM  e
  178. 1228  HPLOT X,Y -1 TO X,Y -3
  179. 1230  HPLOT X +1,Y TO X +3,Y
  180. 1232  HPLOT X +1,Y -2 TO X +2,Y -2
  181. 1234  HPLOT X +1,Y -4 TO X +2,Y -4
  182. 1236  HPLOT X +3,Y -3
  183. 1238  RETURN 
  184. 1240  REM  b
  185. 1242  HPLOT X,Y TO X,Y -6
  186. 1244  HPLOT X +1,Y TO X +3,Y
  187. 1246  HPLOT X +4,Y -1 TO X +4,Y -3
  188. 1248  HPLOT X +1,Y -4 TO X +3,Y -4
  189. 1250  RETURN 
  190. 1252  REM  s
  191. 1254  HPLOT X,Y TO X +3,Y
  192. 1256  HPLOT X +4,Y -1
  193. 1258  HPLOT X +1,Y -2 TO X +3,Y -2
  194. 1260  HPLOT X,Y -3
  195. 1262  HPLOT X +1,Y -4 TO X +4,Y -4
  196. 1264  RETURN 
  197. 1266  REM  1
  198. 1268  HPLOT X,Y TO X +2,Y
  199. 1270  HPLOT X +1,Y -1 TO X +1,Y -6
  200. 1272  HPLOT X,Y -5
  201. 1274  RETURN 
  202. 1276  REM  2
  203. 1278  HPLOT X,Y TO X +4,Y
  204. 1280  HPLOT X,Y -1
  205. 1282  HPLOT X +1,Y -2
  206. 1284  HPLOT X +2,Y -3 TO X +3,Y -3
  207. 1286  HPLOT X +4,Y -4 TO X +4,Y -5
  208. 1288  HPLOT X +1,Y -6 TO X +3,Y -6
  209. 1290  HPLOT X,Y -5
  210. 1292  RETURN 
  211. 1300  REM  5
  212. 1302  HPLOT X,Y -1
  213. 1304  HPLOT X +1,Y TO X +3,Y
  214. 1306  HPLOT X +4,Y -1 TO X +4,Y -3
  215. 1308  HPLOT X,Y -4 TO X +3,Y -4
  216. 1310  HPLOT X,Y -5 TO X,Y -6
  217. 1312  HPLOT X +1,Y -6 TO X +4,Y -6
  218. 1314  RETURN 
  219. 1320  REM  4
  220. 1322  HPLOT X +3,Y TO X +3,Y -6
  221. 1324  HPLOT X,Y -2 TO X +4,Y -2
  222. 1326  HPLOT X,Y -3
  223. 1328  HPLOT X +1,Y -4
  224. 1330  HPLOT X +2,Y -5
  225. 1332  RETURN 
  226. 1340  REM  k
  227. 1342  HPLOT X,Y TO X,Y -6
  228. 1344  HPLOT X +1,Y -2 TO X +2,Y -2
  229. 1346  HPLOT X +3,Y -1
  230. 1348  HPLOT X +4,Y
  231. 1350  HPLOT X +3,Y -3
  232. 1352  HPLOT X +4,Y -4
  233. 1354  RETURN 
  234. 1360  REM  g
  235. 1362  HPLOT X +1,Y TO X +3,Y
  236. 1364  HPLOT X,Y -1 TO X,Y -2
  237. 1366  HPLOT X +1,Y -3 TO X +3,Y -3
  238. 1368  HPLOT X +1,Y +2 TO X +3,Y +2
  239. 1370  HPLOT X +4,Y -2 TO X +4,Y +1
  240. 1372  RETURN